home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 98 / Tiger_Disk_098_20xx_Tiger-Crew-Disk_de_Side_B.d64 / 130 -ende- (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  24 lines
  1. 10 printchr$(147):poke53280,11:s=54272:pokes+4,129:pokes+24,15:pokes+6,248
  2. 12 print"[147][151]     aus lukian's nonsens-werkstatt     ";:forz=1to1000:next:print"[147]":forc=1to11
  3. 15 pokes+5,9:poke53281,11   ::::::::::::::::::::::   poke53281,. :gosub49
  4. 25 poke53280,11   ::::::::::::::::::::::   poke53280,.:pokes+1,p+p  :gosub49
  5. 26 poke53281,2    ::::::::::::     poke53281,6 :::::::::   poke53281,.:
  6. 27 pokes+4,49:pokes+4,17:pokes+1,0+abs(p)
  7. 30 poke53280,2    ::::::::::::     poke53280,6 :::::::::   poke53280,.:gosub49
  8. 40 poke53281,11    :::::::::::::::::::::   poke53281,.:pokes+1,p/9:   next:goto65
  9. 49 forp= 9to10:poke214,p:sys58640:poke56325,2:pokes+4,128
  10. 50 print"[144]        [161][161][161][161][161] [161]   [161] [161][161][161][161]  [161][161][161][161][161][144]      "
  11. 51 print"        [161]     [161][161]  [161] [161]   [161] [161][144]           "
  12. 52 print"        [161][161][161][161]  [161] [161] [161] [161]   [161] [161][161][161][161][144]        "
  13. 53 print"        [161]     [161]  [161][161] [161]   [161] [161][144]           "
  14. 54 print"        [161][161][161][161][161] [161]   [161] [161][161][161][161]  [161][161][161][161][161][144]       ":poke56325,55:next
  15. 59 return
  16. 65 fori=1to4:fort=5to15:poke54296,t:poke54296,2:next:gosub70
  17. 66 forc=15to5step-.5:poke54296,c:poke54272,17:poke54273,c:poke54272,128:poke54296,0:next:next
  18. 67 end
  19. 70 forp= 9to10:poke214,p:sys58640:print"[155]        [161][161][161][161][161] [161]   [161] [161][161][161][161]  [161][161][161][161][161] "
  20. 71 print"[154]        [161]     [161][161]  [161] [161]   [161] [161][144]           "
  21. 72 print"        [161][161][161][161]  [161] [161] [161] [161]   [161] [161][161][161][161][144]        "
  22. 73 print"[156]        [161]     [161]  [161][161] [161]   [161] [161][144]           "
  23. 74 print"        [161][161][161][161][161] [161]   [161] [161][161][161][161]  [161][161][161][161][161][144]       ":next:poke53281,11:return
  24.